1. -!ILISP.MAC←UCILSP.MAC
   2. - /-/-/-/-/-/-/-/-/-/ BEGINNING OF CONFLICT   1 \-\-\-\-\-\-\-\-\
   3. -1,7
   4. 	TITLE	LISP INTERPRETER
   5. 	SUBTTL	NOTES  TO SYSTEM PROGRAMMERS		
   6. 
   7. ;	ASSEMBLY SWITCHES OF  INTEREST
   8. ;
   9. ;	SWITCH		EXPLANATION,  COMMENTS  ETC.
  10. ;	ALTMOD		FOR ALTMODE CHARACTER. OLD WAS 175
  11. ;			NOW IT'S 33 FOR 506
  12. ;	QALLOW		ENABLES  ACCESS  TO QMANGR, ONLY  IF YOUR
  13. ;			SYSTEM SUPPORTS QUEUE. SEVERAL SWITCHES 
  14. ;			ASSOCIATED WITH  THE  CODE
  15. ;	OLDNIL		OLD STANFORD NIL. CODE TO MAKE CAR AND CDR
  16. ;			OF NIL INCOMPLETE AS OF 8/30/73
  17. ;	NONUSE		OLD STANFORD VERSIONS  OF  MEMQ, AND  ETC.
  18. ;			THAT  RETURNED  T OR NIL.
  19. ;	SYSPRG		PROJECT NUMBER IF NOT ON SYS:.
  20. ;	SYSPN		PROGRAMMER NUMBER IF NOT ON SYS:
  21. ;	SYSDEV		DEVICE LOCATION OF SYSTEM.
  22. ;			NOTE THAT  THE ABOVE THREE ARE WHERE LISP
  23. ;			EXPECTS  TO  FIND THE  LOADER,THE
  24. ;			SYMBOL TABLE AND THE NORMAL HI-SEGMENT.
  25. ;			THE FUNCTION (SETSYS ...) ONLY CHANGES THE
  26. ;			EXPECTED LOCATION OF THE HI-SEG
  27. ;	**USE  FOLLOWING AT OWN  RISK**
  28. 
  29. ;	HASH		NUMBER OF  HASH BUCKETS  WHEN STARTING
  30. ;	ALVINE		STANFORD EDITOR (WHO WOULD WANT IT?)
  31. ;			1 FOR ALVINE, 0 FOR NO ALVINE
  32. ;	STPGAP		ANOTHER  STANFORD  EDITOR
  33. 
  34. ;	COMMENTS
  35. ;	THERE ARE BASICALLY TWO SETS OF COMMENTS IN THE CODE.
  36. ;	THOSE IN LOWER CASE ARE ORIGINAL STANFORD COMMENTS. 
  37. ;	THOSE OF A SEMI-COLON FOLLOWED BY TWO $'S,
  38. ;	TWO #'S, OR TWO %'S ARE UCI ADDITIONS,
  39. ;	CHANGES, OR ADDITIONAL COMMENTS.
  40. ;	($'S ARE USUALLY DARYLE LEWIS, 
  41. ;	#'S ARE GENERALLY JEFF JACOBS,
  42. ;	AND %'S ARE GENERALLY BILL EARL.)
  43. 
  44. 
  45. 	PAGE
  46. 		SUBTTL AC DEFINITIONS AND EXTERNALS 		
  47. 	TWOSEG
  48. 	OLDNIL==1		;## NOT COMPLETE
  49. 
  50. IFNDEF	NONUSE		<NONUSE==0>
  51. IFNDEF	QALLOW		<QALLOW==1>
  52. ;SYSPRG==667	;PPN OF LISP SYSTEM - SET TO 0 FOR SYS:
  53. ;SYSPN==2	;SAME HERE
  54. -2,2
  55. TITLE ILISP INTERPRETER
  56. -6,7
  57. - /-/-/-/-/-/-/-/-/-/-/-/-/ END OF CONFLICT   1 \-\-\-\-\-\-\-\-\
  72. - /-/-/-/-/-/-/-/-/-/ BEGINNING OF CONFLICT   2 \-\-\-\-\-\-\-\-\
  73. -178,186
  74. ;	CAME	0,STNIL	;$$UNBIND STACK IF REGS LOOK OK		*** MJC
  75. ;	JRST	GETHGH	;GO GET HIGH SEGMENT			*** MJC
  76. ;	MOVE	B,SC2						*** MJC
  77. ;	PUSHJ	P,UBD	;$$UNBIND STACK				*** MJC
  78. ;	JRST STRT	;go to re-allocator			*** MJC
  79. ;GETHGH:	CALLI	RESET					*** MJC
  80. ;	MOVSI	A,1						*** MJC
  81. ;IFE STANSW,<	CALLI	A,CORE	;ELIMINATE ANY OLD HIGH SEGS.	*** MJC
  82. ;	HALT >							*** MJC
  83. -185,191
  84. 	CALLI	A,CORE		;ELIMINATE ANY OLD HIGH SEGS.
  85. 	HALT
  86. 	MOVEI	A,HGHDAT
  87. 	CALLI	A,GETSEG	;GET THE PROPER HIGH SEG
  88. 	HALT
  89. - /-/-/-/-/-/-/-/-/-/-/-/-/ END OF CONFLICT   2 \-\-\-\-\-\-\-\-\